home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1994 / 7 / 02 / tips&tricks / mouse.s < prev    next >
Encoding:
Text File  |  1995-06-01  |  1.0 KB  |  32 lines
  1. ;------------------------------------------------------------------------------
  2. ; CLI-Commando: MOUSE <on/off>
  3. ; (c) 1994 by Markt & Technik. Coded by Koppensteiner Peter.
  4. ; 1.3/2.x/3.x. Assembled mit ASM_One v1.0 / 168 Bytes
  5. ;------------------------------------------------------------------------------
  6. ; Schaltet den MousePointer ein/aus
  7. ;------------------------------------------------------------------------------
  8.  
  9.  
  10. beg:    moveq    #$20,d0            ;Sprite-DMA off
  11.     cmp.w    #'of',(a0)        ;Befehl -> aus ?
  12.     beq.s    ok            ;ja, setze DMA
  13.     add.w    #$8000,d0        ;Sprite-DMA on
  14.     cmp.w    #'on',(a0)        ;Befehl -> ein ?
  15.     beq.s    ok            ;ja, setze DMA
  16.     move.l    264(a2),a4        ;Output (DOS)
  17.     moveq    #$c,d0            ;Int.Dos
  18.     jsr    (a5)            ;Find Outputhandle
  19.     lea    tex(pc),a0        ;Adresse Text
  20.     move.l    a0,d2            ;-> d2
  21.     moveq    #[end-tex],d3        ;Länge Text
  22.     move.l    -24(a2),a4        ;Write (DOS)
  23.     jmp    (a5)            ;schreibe Text & zurück
  24.  
  25. ok:    move.w    d0,$dff096        ;allow sprite-dma
  26.     moveq    #0,d0
  27.     rts
  28.  
  29. tex:    dc.b    'MOUSE <on> <off> v1.0 by Markt & Technik',$a
  30.     dc.b    'Coded by Peter Koppensteiner in 1994 !!!',$a
  31. end:
  32.